Dit voorbeeld maakt gebruik van de functie CByte om een expressie naar een Byte te converteren.
Dim MyDouble, MyByte MyDouble = 125.5678 ' MyDouble is a Double. MyByte = CByte(MyDouble) ' MyByte contains 126.